If Formula Based On Cell Colour Using Vba Function